| = | 
} | 
| 

LLL HI11111 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL HI NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKK KKK EEE RER RRR 

LLL 11] NNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR ARR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE ARP RR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE _ RRR RRR 

LLLLLLLLLLLLLLL IIIIIIII1 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 


**F ILE**1]D**LNKERROUT 


LL NN NN KK KK EEEEEEEEEE RRRRRRRR RRRRRRRR 000000 UU UU TTTTTTTITT 

LL NN NN KK KK EEEEEEEEEE RRRRRRRR RRRRRRRR 000000 UU UU TTTTTTTTITT 

LL NN NN KK KK EE RR RR RR RR 00 00 UU UU TT 

LL NN NN KK KK EE RR RR RR RR 00 00 UU UU TT 

LL NNNN NN KK KK EE RR RR RR RR 00 00 UU UU TT 

LL NNNN NN KK KK EE RR RR RR RR 00 00 UU UU TT 

LL NN NN KKKKKK EEEEEEEE RRRRRRRR RRRPRRRR 00 00 UU UU TT 

LL NN NN NN KKKKKK EEEEEEEE RRRRRRRR RRRRRRRR 00 00 UU UU TT 

LL NN NNNN KK KK EE RR RR RR RR 00 00 UU UU TT 

LL NN NNNN KK KK EE RR RR RR_ RR 00 00 UU UU TT 

LL NN NN KK KK EE RR RR RR RR 00 00 UU UU TT eos 
LL NN NN KK KK EE RR RR RR RR 00 00 UU UU TT cece 
LLLLLLLLLL NN NN KK KK EEEEEEEEEE RR RR RR RR 000000 UUUUUUUUUU TT cece 
LLLLLLLLLL NN NN KK KK EEEEEEEEEE RR RR RR RR 000000 UUUUUUUUUU TT cece 
LL HII] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] Ss 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL II SS 

LL I] SS 

LELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 


Be Ge Se Be Be Se Se Be Se Be Se Se Se Se Ge Be Se Se Ge Ge Ge Se Fe Fe Ge Ge Ge Ge Ge Se Ge Se Se Se Se Ge Se Ge Se Se Se Fe Se Se Se Se Fe Se Se Se Se Ge Se Se Se Se ae 
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1 
1 


; 1 001 © MODULE LNK_HANDLER ( ; 
3 ¢ 0 ‘ IDENT ='V04-000' 5 
; 0 ADDRESSING_MODE (EXTERNAL=GENERAL, ; 
; 4 4 NONE XTERNAL=LONG_RELATIVE) $ 
3 2 b2 ds : 
3 7 $09 1 BEGIN 5 
; 8 008 1! 3 
3 G 0009 1! ; 
5 19 Borg | See AREER AAA AAA AEE 3 
F \® * 3 
; 1 O01¢ 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
rar § 0015 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
3 1% id ! is ALL RIGHTS RESERVED. * : 
4 . ® ° 
; 16 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; 17 0017 1 !* ONLY IN ACCORDANCE WITH THE TERM SUCH LICENSE AND WITH THE * ; 
; 18 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
3 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; = B054 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 $3 BnS3 ; :* TRANSFERRED. * : 
Py 4 ® Py 
3 6 $058 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 $e on5e 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; $2 4 5 ! :* CORPORATION. * ; 
, '® * Py 
> ay $059 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
3 $8 43 ' 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . ; 
3 $5 $080 1 Ie « 3 
3 31 0031 1 Lee A AAA P 
; 3 itt 1! 3 
we 0033 1! 3 
3 ¥ 0034 1! 3 
3 5 0035 1! 3 
; 36 0036 1! ; 
i. oe 0037 1 !++ 3 
cio) a 0038 1! é 
:~ 0039 1 ! MODULE: LNK_HANDLER 3 
; 40 0040 1! 3 
s 661 0041 1 ! FACILITY: LINKER 3 
3 6 94 4 1! 3 
3 4 004 1 ! ABSTRACT: ERROR HANDLER FOR THE LINKER é 
; 644 Bote 7 3 3 
: 45 45 1°! HISTORY: 3 
; 646 pues e 3 
3; 67 0047 1! VERSION: x01.00 : 
; «648 0048 1! 3 
; $2 rd ' : AUTHOR: T.J. PORTER 30-DEC-76 : 
; i 0081 : MODIFIED BY: ; 
3 § Ee 2 v03-002 8LS0031 Benn Schreiber Wn son= 98 3 
3 35 0085 ! } Print Pass 1 error messages in map in pass : 
3 6 B28 1! v03-001 8LS0007 Benn Schreiber, 3-Jun-1980 3 
3 57 0057 1! Rewrite and convert to MDL data structures. ; 


LNK _HANDLER 
V04=000 ’ 
58 


53 
EcASR ABEL GEEITSG. WOaldaP ANT REewads 7A, ree as 


0058 1 !-- 


4 
LNK_HANDLER $ep-1984 23:57:09 AX-11 Bliss-32 V4.0-74 P 
042000 90p- 138s 93:20:59 t age 4f 


LINKER.SRCJLNKERROUT .B52; 1 (2) 


; 60 4 1 H 
gs 6) 060 1! F 
as 061 1 !44 ‘ 
a 006 1! : 
; rt: ber : FUNCTIONAL DESCRIPTION: : 
: 66 065 1 ! This module processes errors for the Linker. : 
ae 0066 1 i= “ 
; & 0067 1! F 
; 9 0068 1 LIBRARY : 
; 0 B28? 1 *STARLETL32'; ! VMS AND RMS INTERFACES $ 
2 070 1 LIBRARY F 
: 7 071 1 *DATBAS'; ! DATA BASE : 
oe 007g 7 MetUIRE REF IX® ! GENERAL MACROS ETC 
; 0188 #1 $ 
; 3132 1 EXTERNAL 3 
; 77 190 1 LNK$GB_PASS : BYTE ' PASS 1 OR 2 ; 
; 78 0191 1 LNKSGL_CUROMD : REF BLOCKL , Hibeta ' POINTER TO CURRENT OBJECT MODULE DESCRIPTOR ; 
; 8 019 i LNKSGL~CTLMSK : BLOCKC,BYTE); i CONTROL FLAGS ; 
: 81 0194 1 EXTERNAL ROUTINE : 
: : Big2 : LNKSALLOBLK; ! ALLOCATE VIRTUAL MEMORY : 
: Be 0197 : PSECT PLIT = SCODES; ! MOVE THE PLITS 
5; 6 0199 1 ! SSHR_MESSAGES - a macro which defines facility-specific message codes 
; 44 ° 4 ' which are based on the system-wide shared message codes. 
; 0 4 1 } SSHR_MESSAGES( mame, code, (msg,severity), ... ) 
> 90 0203 1} | 
; 0204 1! where: 
: oS OSb¢ 1! “‘name’’ is the name of the fog th ity (e.g., COPY) 
ay 0206 1: “code"’ is the corresponding facility code (e.g., 103) 
; 94 0207 1! ‘msg’ is the name of the shared message (e.g., BEGIN) 
; 0208 1! “severity’’ is the desired message severity fe.g., 1, 0, 2) 
; 0209 1! 
; 0210 1 
3 98 0211 1 MACRO 
; 99 m0 1g 1 SSHR_MESSAGES( FACILITY_NAME, FACILITY_CODE ) = 
: 100 ® os! 1 GLOB R 
; +4 8 i ' SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE, ZREMAINING ); %, 
; 108 L! 8 1¢ 1 SHRSMSG_IDS( FACILITY_NAME, FACILITY CODE) C VALUE J = 
: ine : : SHRSMSG_CALC( FACTLITY_NAME, FACILITY_CODE, ZREMOVE(VALUE) ) %, | 
; 18 La} } i 1 SHRSMSG_CALC( FACILITY NAME , FACILITY_CODE, MSG_ID, SEVERITY ) = 
> 10 m 0220 1 ZNAME (FACILITY NAMES cMSG_ID) = XNAME(*SARS_*,MSG_ID) + FACILITY_CODE*65536 + 
: 108 4 1.3 ZIF ZDECLARED(ZNAME('STSSK_° ,SEVERITY)) 
: 109 M0022 1 THEN ZNAME('STSSK_*, SEVERITY) | 
: 110 1 ZELSE SEVERITY 2F1°2; 
3.641121 4 1 
; ig aoe 
> 11 g 1: 
3; («196 1 EXTERNAL 7 a 
: 415 8 LINKS FACILITY | 
: 116 1 LINS_FATALERROR; | 

| 


4 
LNK_HANDLER 1$-se “1984 23:57: AX-11 Blisg-32 V4.0-74 Page 4 LNK, 
v04=000 14 Saat 20:39 LINKER. SRC JLNKERROUT .B52; * . (2) V04: 
s 297 1 
3 118 B 1 SSHR_MESSAGES (LIN, 190, ! facility is Link, id is 151 
; 1 & 1 (openin, severe), i error opening ‘‘file’’ as input 
> 120 P 1 (openout, warning), ! error openine file’ as qutput 
: 121 Pp 1 (closein, warning) ! error closing ‘'file’’ as input 
i 19¢ P0235 1 (closeout, warning’, i error closing ‘‘file’ as output 
'S Pp 1 (readerr, warning), ! error reading ‘'file’ 
; , : 0 i : (writeerr, error)); ! error writing ‘file’ 
3 : 0 9 1 EXTERNAL ROUTINE 
3 0240 1 LNKSMAPOUT, : Output to map file 
; 128 0241 1 LNKSEXIT; ! Linker exit routine 
: 129 0 g 1 
:. 9 0245 1 
: «(131 0244 1 GLOBAL 
: 132 0245 1 LNKSGL_ERRLIST, ! Listhead for pass 1 non-module errors 
; 335 0246 1 LNKSGL_LASTERR : INITIAL (LNKSGL_ERRLIST), ; porser to last pass 1 non-module error 
; (134 0247 1 LNKSGB_MAXERCOD : BYTE INITIAL (7); ! Maximum error code seen during Link 


Oc Ba Be Be Oe Be Be Oe Oe Oe Be Oe Be Se SH Se OH Se Oe Os Oe Oe Oe TH SH THs OH Oe Oe we OH Oe BH Oe BES Oe Oe Oe OH SHO Oe Oe OH Oe Oe SE Se Se ee Be ee tee 
me oe oe oe oe oe _— * rr a SS OS Se OS TS ilaeeeelwL CUCU Dl CL SC te lle Bs ey A el eel, ce i dd, DS a OS Oe * , ae eo SC*'’ 


iagiisdbinclipaipattpeiventagmencaiaatdhe aaliabne inated ; 
| 
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& 
00m 138 $3:37 309 AX-11 Bliss-32 pane ag 
ep-1984 12:40:29 LINKER. SRC JLNKERROUT .B52; 1 (3 


BEGIN 


re GLOBAL ROUTINE LNKSERRMSG(ERRORMSGDESC) = 
we 
0 ; i This routine is called by SYSSPUTMSG after it has formatted the error 
1 ! message and just before it writes the moveege to SYSSERROR or SYSSOUTPUT. 
¢ 4 ! The input parameter is a string descriptor for the formatted message. 
i 5 This routine is used to output error messages to the map file. 
> 33 } INPUTS: 
39 ! ERRORMSGDESC address of string descriptor of error text. 
9 61 i OUTPUTS: 
0 86 } 
1 6 ; 
¢ 64 ! 
65 
4 
5 
6 
7 
8 


Pp 
ERRORMSGDESC : REF BLOCKC,BYTE); 


IF .LNKSGL_CTLMSKCLNKSV_MAPOPN) 
THEN LNKSMAPOUT (. ERRORMSGDESCCDSCSA POINTER 
 ERRORMSGDESCCDSC$Q_LENGTHJ); 


IF .LNK$GB_PASS EQL 1 
AND .LAKSGL_CTLMSKCLNKSV_MAP] 
THEN BEGIN 


L 
LASTBLOCK : REF BLOCKC,BYTE), 
EBLOCK : REF BLOCKL, BYTE); 


LNKSALLOBLK (OEBSC_SIZE+.ERRORMSGDESCCOSCSW_LENGTH), 


EBLOCKEOEBSL _AXTOEB = 0; 
EBLOCKCOEBSW-BYTCNT) = .ERRORMSGDESCCDSC$W_LENGTH); 
IF .LNKSGL_COROMD NEQ 0 


Put message in map if mapping 


wn 


If this is pass 1 
and a map will be generated 


A 
Z 
F 


ocate a text block 


OOOO NNN NNN NNO OO 


POMONOPONOPOPoPorfofnofry 


LL 
ero Link to next block 
ill in the error message block 


$GL_COROMD 


NK 
THEN BEGIN 
LASTBLOCK = .LNKSGL_CUROMDCOMDSL_LSTERR); 
LASTBLOCKCOEBS$L_NXTOEB) = .EBLOCR; 
LNKSGL_CUROMD OMD$SL_LSTERR) = .EBLOCK; 
ELSE BEGIN 
LASTBLOCK = sLNKSGL LASTER 
LASTBLOCKCOEBSL_NXTOEB) = 
LNKSGL_LASTERR = .EBLOCK; 


END 
CHSMOVE (. ERRORMSGDESCCDSC$W_LENGTH), 
~ERRORMSGDESCLDSCSA POINTER, 
EBLOCKCOEBST_TEXTJ); 


Get pointer to Last on List 
Link new one into List 
and make this one the new Last 


meme 


DWONOULWN—O”O 


Morrorororor 


ooo 


WWIwmIaronononenonon 
BUI OSB NERO 


It's not related to any particular module 
R; Get pointer to last non-module error 
-EBLOCK; And Link new one 


n 
Make this one the new Last block 


WwnN— 


Se eet PIN 8 SF BS Oe ER ty et te OA ee tt Se 


oo 
uw 


Copy the text for printing in pass 2 


SSELE 


END; 
RETURN TRUE; 
END; 


Tell SPUTMSG to output 
msg on terminal 
end of map_outmsg 


a ee ee ee ee eee ee ee LS 


CGOOOOOSOOCOCOSCSCOOSOOOOCOCOOOCOOSOSOSOOSOSCOO OOOO COOOCOOOOCOOOCOOOOOOOCOOOO 


ROR WIAA BB BBB WII II II I I IRON 2 3 


<o 
— 


is, i i, ls ml i, da. isl cas, masala aaa sails aml, atl ills saint, aa eatin. seman Mla aan at, ti et, iain. ein, sins tml: sin: ail, mame, man is ti: ait inal» intl: Ms Cae, Ga, ai. ni. nein. ni. eet, eae. net ee naling, Gente ene ames, te 


error text also output to map file if open. 
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41 


000000006 


0 000000006 


4 
1B-seo-1986 23:57 


-TITLE 
- IDENT 


»PSECT 


00000 LOGE, Sm TRF 
00000000" 00004 LNKSGL_LASTERR 


+08 AX-11 Bliss-32 V4.0-74 
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LNK HANDLER 
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SGLOBALS$ ,NOEXE ,2 


4 


ADDRESS LNKSGL_ERRLIST 
01 00008 LAOS ARETE OP 


So 
So 


ONC Soo -—99090 -C DCF MOWO OM OD"OWOMowoon 
ooooo 


CSOCOOoCoCooOooooooo 
OOOO COCOCCOCOCOOOCooCoOSooe 


MANDA E & EP AAAAANIIN 2 @ 3 = 3200 


oro 


1$: CMPB 


So 
eunonvoo 


GOS & NUM & OO" 9 DW OS MD NI OO ND NWO OP 
~ 
tad 
3s . 
< - 
= - 
“ 


SAV OVVM S OQOAOSAOSOS Pio 
INI: OMNIS OWNIMNAWOM 
SODWOOO—OCOOWCS FOWON OS $$" DOINO—/NMMa 


~N 
nw 
Po 
3 
< 
o 
w 


Ss 
Bs 


BORAX 


55785 
55785 
55777 
a2078 
2378 
55790 
LNK$GB_PASS, LNK$GL_CUROMD 
LNK$Gu~CTLMSK, LNKSALLOBLK 

LINKS FACILITY, LINS_FATALERROR 
LNKSMAPOUT, LNKSEXIT 


SCODES,NOWRT,2 


LNKSERRMSG, Seve RZ -AS.R4 RS.M6,87 


LNKSGL_CTLMS 
LNKSGL“LASTERR, R6 


me 
#5, LNKSGL_CTLMSK, 1$ 
ERRORMSGDESC, RO 
(RO), =(SP) 


4(RO 
#2, LNKSMAPOUT 
LNKSGB_PASS, #1 


4 
#4, LNKSGL_CTLMSK, 4$ 
ERRORMSGDESC, R3 
R3), (SP) 
as, SP) 
#2. LNKSALLOBLK 
EBLOCK, R 
(RO) 
(R3), 4(R2) 
‘et RO 
(RO), LASTBLOCK 
Re, (LASTBLOCK) 
R2, 36(RO) 


NKSGL_LASTERR, LASTBLOCK 

, (LRSTBLOCKS 
LNKSGL_LASTERR 

R$), a4 


i 
R 
R 
( (R3), 6(R2) 
#i, RO 


e 


% 
ea = 


mr 


SBSSRALSSS 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Be Se Se Se Se Be Be Se Se Se 


OooooooooOoO CO 


4 
LNK_HANDLER ,. 1984 23:57: AX-11 Blisg- 4.0-74 
v04=000 12rgeB7 1882 43:25:98 | Hence Shes Laceknour -6$2;1 Page 5f 
04 00079 RET ; 0303 
; Routine Size: 122 bytes, Routine Base: S$CODE$ + 0000 


. 
e 
. 
a 
7 
. 
e 
. 
. 
~ 
. 
. 
° 
. 
. 
. 
° 
. 
° 
. 
e 
. 
. 
. 
cd 
2 
. 
oe 
8 
e 
. 
° 
. 
. 
. 
a 
- 
° 
. 
o 
. 
o 


5 
55 


SSLESR 


USER AAS SSLISRS 


WA 


WWWAWW AAW 


BH FAWN PNPININPIPNYPRSNIND 2 OOOO ee 


PW CO OONO UNE WN 0 OONOU EWN OOONOUE WO 


peat ae Ne re ene tt Nr Nea hy the tir ae the te pp yee yb es oh ot tt tt a a ts 
oo 
CGQOCCCOSOSOSCSOSOCSSGCCOCOCOOCOOCOCOOCOOCOOOOCOOOOOOOOoOOO 


Be Se Se Se Se Se Fe Se Fe Ge FH Ss Os Se Fe Se Be FH Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se oe Se SH Se SH Se Se as 
Ne ban andes 
Wwnr— VSRNOURUN SOMNOMRUW—OS 


e 


00000000G  8&F 06 


50 04 


: 


4 
18-sep-1984 ; +3799 AX-11 Bliss-32 El Page 8 


14-Sep-1 
LOeAL ROUTINE LNKSHANDLER (SIGARGS, MECHARGS) = 


LINKER. SRCJLNKERROUT.B 


i This routine is a condition handler called whenever a signal is done by 
! the linker. It merely remembers the most severe error for an exit status. 


SIGARGS : REF BLOCK(,BYTE 
MECHARGS : REF BLOCK(, BYTES; 


BIND 
SIGNAME = SIGARGSCCHFSL_SIG_NAME) : BLOCKC,BYTE); 


i If this is not a Linker error then resignal 


if .SIGNAMECSTSSV_FAC_NO] NEQ LINKS_FACILITY 
THEN RETURN SS$_RESIGNAL; 


IF NOT .SIGNAME ! If this is an error signal 
AND ((.SIGNAMECSTS$V_SEVERITY) ! and severity is worse than it was 
GEQU .LNK$GB_MAXERCOD) 
OR LM SG8 MAXERCOD) ! or we haven't had any errors 
THEN LNKS$GB_MAX ! then set new worst error 


RCOD = 
« SIGNAMECSTSS$V_SEVERITY]; 
SIGARGSCCHFSL_SIG_ARGS) = .SIGARGSCCHFSL_SIG_ARGS) - 2; !Don't count pc/psl 
SPUTMSG (MSGVEC=SIGARGSCCHFSL_SIG_ARGS],ACTRTN=LNKSERRMSG);! output the message 
SIGARGSCCHFSL_SIG_ARGS] = .SIGARGSCCHFSL_SIG_ARGS) + 2; 
IF .LNK$GB_MARERCOD EQL STSS$K_SEVER ' if this is a severe error 
THEN LNKSERIT(CIF .LNKSGB_PASS EQL 0 THEN (.SIGNAME OR STSS$M_INHIB_MSG) 
ECSE LINS_FATALERROR)); ! then exit 


TURN SS$_CONTINUE ! signal to continue 


-EXTRN SYSSPUTMSG 


000c 00000 .ENTRY LNKSHANDLER, Save R2,R3 > 0304 
53 00000000" EF 44 MOVAB LNK$GB_MAXERCOD, ; 

4 A&C 0 4 § GARGS, R ; 0319 

A2 0c y p CMPLV i #12. 6(R2), #LINKS_FACILITY ; 0324 

50 0918 8F ¢ 19 MOVZL #2328, RO 0325 

17 04 A 8 1F 1$: LBS  4(R2), 3$ : 0327 

30 A MOVZBL LNK GB _MAXERCOD RO ; 0329 
A2 FD 000¢6 CMPLV AO, AS, 4(R2), RO : 


ez 


LINK _HANDLER 
v04=000 
he ae : ip 
a 
. E Se 
ros OF 
000000006 09 83 eb 
1 
000000006 : ‘ 
52 04 A2 10000000 4 P 
06 11 
000000006 98 scat a FB 
1. 
4 


; Routine Size: 122 bytes, Routine Base: $CODE$S + OO7A 


1 
it 
, 
: 
; 
i 


4-$ 


ans 
PRAM 


. 
Sep 
Sep 


=198e 13:20 


O8 einen See SiacennouT 692; 1 woes t 
LaKse -PANERCOD 38 : 89 


bees MAKERCOD 


[NKSERRMSG 
» SYSSPUTMSG 


P : 338 

NKSGB_MAXERCOD, #4 : 0339 

LNK$GB_PASS + 0340 
H 68435456, 4(R2), R2 : 
5 ; 
WLINS_FATALERROR : 
~ LAKSEXIT 3 

° : 0343 

3: 0344 


eS ae a ee OO le Oe Oe ee Oe eee Oe el relhUmhcerlUCUCeelUlererlUlCT eel STrlUCCUCrlUCCTeTCwChCUCcCCTrLhUCcCOCrmhUCcCCrmhUCTChCUCTCTrmhUCSWmmhUCCTrmhUCmTrmhUCOCOChUCUCOmUhUhU!mTmThUCUCCOCrCUCUCeOClUCcGTerllUeDhUheehlUhLeOUmL eS eee eh ehUCUhUCUme 
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LNK_HANDLER La Sep 4 AX-11 Bliss-32 Vv4.0-7 Pp 10 

v04=000 127808= 1384 §3:25:98 Ener SResiacenRooT 69251 wr a 
; 235 45 1 GLOBAL ROUTINE LNKSFILNAMDSC (IFAB) = 
3 § BEGIN : 
; a § 4. ; 
; 89 rh This routine returns the address of a string descriptor for the input fab. ; 
; 41 i INPUTS: ; 
5 rb § IFAB is the address of the fab ; 
3 45 5 ; ROUTINE VALUE: 3 
; rt 4 sf ! the address of a string descriptor for the file name ; 
: $25 35 § i. 
; 250 60 P 3 
; 51 61 IFAB : REF BLOCKC,BYTE); : 
3 2§ 66 : 
; @ 6 BIND : 
3 54 64 NAM = .IFAB CFABSL_NAM] : BBLOCK; : 
955 O86 : 
3 57 O36? FILEDESC : BLOCKCDSCSC_S_BLN,BYTE); ! the string descriptor ; 
; $36 0369 if CF AL EDESC COSCSW LenstH) = .NAM CNAM$B_RSL]) NEQ 0 ! if resultant name present ; 
3 $60 0370 THEN FILEDESC CoSesAce ERD ~NAM CNAMS 3 
: 261 tie ELSE IF (FILEDESC fosctulte 6TH) = NAM ATNARSS ditt NEQ 0 ! if expanded name present ; 
3 $6 0 fs THEN FILEDESC CDSC$A_PO SINTER) = «NAM CNAMSC_ESAJ 3 
; 26 037 ELSE BEGIN : 
; 264 0374 FILEDESC ED StsA LENGTH] = .IFAB CFABSB_FNS); ! use filename string 3 
; #4 0375 FILEDESC CDSCSA_POINTER) = .IFAB CFABSC_ FNAS; ! if all else fails 3 
; 266 pee END; 3 
3; 267 037 3 
: 268 0378 RETURN FILEDESC : 
; 269 0379 1 END; !0f LNKSFILNAMDSC : 
-PSECT SOWNS,NOEXE ,2 3 
00000 FILEDESC: ; 
-BLK 8 : 
.PSECT S$CODES,NOWRT,2 3 
0004 00000 .ENTRY LNKSFILNAMDSC, Save R2 : 0345 ; 
52 00000000" EF 9 3 MOVAB FILEDESC, R 3 3 
51 4 AC DO MOVL tAB 3 0364 3 
50 5 Al p MOVL ocr{), RO ; ; 
62 ag 1 MOVZBW 3(RO), *FILEDESC ; 0369 3 
07 #1 1 BEQL % 3 : 
04 A2 04 9 i DRE (RO), FILEDESC+4 : 0370 : 
62 08 AQ 98 3 1$ MOVZBW Paes FILEDESC : 0371 ; 
2 BEQL $ 3 3 


5 
LNK_HANDLER 13 e 4 9 AX-11 Bliss-32 V4.0-7 p 1 
v04=000 eee Pa ee ee og Ce ee age 3} 
04 A2 ag 00 4 MOVL (RO), FILEDESC+4 : 0372 
& 34 Al 98 B 28: eC ZBW (R1), F ESC + 0374 
046 =A C Al F MOVL  44(R1) FILEDESC4 : 315 
5 62 9€ 0 3$ MOVAB FILEDESC, : 0378 
4 7 RET 3; 0379 


; Routine Size: 56 bytes, Routine Base: S$CODE$ + OOF4 


Memor ry ,U 73 pages 
; Compilat on “Complete 


70 80 1 

$7 ith 0 END ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
; SGLOBALS 9 NOVEC, WRT, RD NOEXE, NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 
; SCODES 300 NOVEC,NOWRT, RD EXe ,NOSHR LCL, REL, CON,NOPIC,ALIGN(2) 
: » OS « ; NOVEC ,NOWRT , NORD *NOEXE. *NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
; SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Sie ee a a Symbols ------ nord Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 32 0 581 00:01.1 
3; ~$255$DUA28:CLINKER.OBJJDATBAS.L32;1 538 7 1 28 00:00.5 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKERROUT/OBJ=OBJ$:LNKERROUT MSRC$:LNKERROUT/UPDATE=(ENHS$:LNKERROUT) 
3; Size: 300 code + 17 data bytes 
3; Run Time :09.1 
3 Fleeced Tine: :25.8 
3 Lines/CPU Min: 
3 povenee/SPU=nigs 20490 
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